How can I write a loop to clear cells evenly spaced apart?

[Aflatoon]

You could also use a simple loop:
[VBA]
Dim lngCol As Long
For lngCol = 1 To 200 Step 4
Range(Cells(4, lngCol), Cells(20, lngCol)).ClearContents
Next lngCol
[/VBA]