rectangles = Rectangle /@ Tuples[Range[-8, 7, 1], {2}]
Count[rectangles, _Count[_?(Not @ RegionDisjoint[Circle[{0, 0}, Sqrt[59]], #] &)] @ rectangles
60
Count[rectangles, _Count[_?(RegionWithin[Disk[{0, 0}, Sqrt[59]], #] &)] @ rectangles
156
Update: To exclude rectangles "just touching" the circle, we can use
Count[rectangles, _Count[_?(FreeQ[_EmptyRegion | _Point]@
RegionIntersection[Circle[{0, 0}, Sqrt[59]], #] &)] @ rectangles
60
Count[rectangles, _Count[_?(FreeQ[_EmptyRegion | _Point]@
RegionIntersection[Circle[{0, 0}, Sqrt[53]], #] &)] @ rectangles
52