If it really is 1,2,3 (sequential numbers at least) then do it manually as follows:
put the starting number (1) in one cell. Leave 2 blank cells to the right and put the next sequential number (2) in the 3rd cell.
Now select the following the 6 cells starting with the 1 and going 2 cells beyond the two so you have selected:
1,blank,blank,2,blank,blank.
Now grab the fill handle at bottom right of this selection and drag as far as you need, then let go. QED.
Tweaking a recorded macro gives:
Sub blah()
Set Startcell = ActiveCell
Startcell.Value = 1 'you can leave this and the line below out if you want to seed the first 2 numbers manually.
Startcell.Offset(, 3).Value = 2
Startcell.Resize(, 6).AutoFill Destination:=Startcell.Resize(, 369 * 3)
End Sub
where you select the starting cell before you run the macro.
Now if you want to redistribute an existing sequence of numbers which aren't necessarily in sequence then that's another thing:
With this macro, first select the entire set of numbers you want spaced out then run:
Sub blah2()
origValues = Selection.Value
Selection.ClearContents
ofset = 0
For Each v In origValues
Selection.Cells(1).Offset(, ofset).Value = v
ofset = ofset + 3
Next v
End Sub