Excel 2007 : How to create a loop with this code?

hi furiousfox
something like

Sub PopulateNames()
Dim NuOne As Long, Nitem As Long
NuOne = 9
With Worksheets("January")
For Nitem = 1 To Range("A7").Value
Range("W" & NuOne).Formula = "=$A" & 8 + Nitem
NuOne = NuOne + 22
Next Nitem
End With
End Sub

Nice, quick, smooth, perfect!

Thank you !!!