Animate[Show[ParametricPlot3D[{Cos[t/Sqrt[2]],Sin[t/Sqrt[2]],t/Sqrt[2]},{t,0,8Pi},PlotRange->{{-18.1,18.1},{-18.1,18.1},{-0.1,18.1}}],Graphics3D[{Red,Line[{{Cos[x /Sqrt[2]],Sin[x/Sqrt[2]],x/Sqrt[2]},{Cos[x/Sqrt[2]]+x/Sqrt[2]*Sin[x/Sqrt[2]],Sin[x/Sqrt[2]]-x/Sqrt[2]*Cos[x/Sqrt[2]],0}}]}],ParametricPlot3D[{Cos[t/Sqrt[2]],Sin[t/Sqrt[2]],t/Sqrt[2]},{t,x,8Pi},PlotRange->{{-18.1,18.1},{-18.1,18.1},{-0.1,18.1}},PlotStyle->Red],ParametricPlot3D[{Cos[t/Sqrt[2]]+t/Sqrt[2]*Sin[t/Sqrt[2]],Sin[t/Sqrt[2]]-t/Sqrt[2]*Cos[t/Sqrt[2]],0},{t,0,x}, PlotRange->{{-18.1,18.1},{-18.1,18.1},{-0.1,18.1}},PlotStyle->Black]], {x,0,8Pi}]