Try:
Sub pnahra()
For x = 1 To 200 Step 10
Range(Cells(x, 1), Cells(x + 9, 1)).Select
'do something here
Next x
End Sub

or:

Sub pnahra()
For x = 1 To 200 Step 10
Range("A" & x & ":A" & x + 9).Select
'do something here
Next x
End Sub