rectangles = Rectangle /@ Tuples[Range[-8, 7, 1], {2}]

    Count[rectangles, _?(Not @ RegionDisjoint[Circle[{0, 0}, Sqrt[59]], #] &)]
>     60

    Count[rectangles, _?(RegionWithin[Disk[{0, 0}, Sqrt[59]], #] &)]
>     156