The basic form you're creating in the Table looks like this:
{Sin[2 (t + \[Pi])] Cos[(t + \[Pi])] Sin[n 36 °],
Sin[2 (t + \[Pi])] Cos[(t + \[Pi])] Cos[n 36 °],
Sin[(t + \[Pi])] Sin[t + \[Pi]], {Thickness[
0.1 Sin[\[Pi] t/(\[Pi] - 2)]],
RGBColor[(0.34 + t/(3 (\[Pi] - 2))), (0.55 +
t/(3.5 (\[Pi] - 2))), (0.12 + t/(3.5 (\[Pi] - 2)))]}}
Which, simplified is this:
{x, y, z, {< style directives >}}
ParametricPlot3D expects this to be just a three-valued list: {x, y, z}. Maybe putting the styling directives right into the list was okay back then, but I think this is causing your problem now. You'll need to move those styling directives into a PlotStyle option. To at least get a visible plot, just remove that fourth element from each list that Table creates. Also, I think it's a bit cleaner to move your closing bracket so that Evaluate just encloses the Table and not the plot variable. So, something like this:
ParametricPlot3D[
Evaluate[
Table[{Sin[2 (t + \[Pi])] Cos[(t + \[Pi])] Sin[n 36 °],
Sin[2 (t + \[Pi])] Cos[(t + \[Pi])] Cos[n 36 °],
Sin[(t + \[Pi])] Sin[t + \[Pi]]}, {n, 0, 10}]], {t, 0, \[Pi] - 2},
Axes -> False, Boxed -> False, PlotPoints -> 200,
BoxRatios -> {1, 1, 1}, ViewPoint -> {0.862, -2.214, 2.409}]