S=Table[Symbol["w" <> ToString[i]], {i, 1, 73}];
S = List /@ S;
S[[;; 10]]
{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, {w7}, {w8}, {w9}, {w10}}
Alternatively,
S=Table[{Symbol["w" <> ToString[i]]}, {i, 1, 73}];
S[[;;10]]
{{w1}, {w2}, {w3}, {w4}, {w5}, {w6}, {w7}, {w8}, {w9}, {w10}}