function[list_]:= Module[{i},

For[i=1,i<= 3,i++,
       list = Append[list, Symbol["g" <> ToString[i] <> "b"]];
]