Plotting moving dot in 2D graph

Animate[ListLinePlot[T2, 
  Epilog -> {PointSize[Large], Red, Point @ T2[[t]]}], {t, 1, Length @ T2, 1}]

Alternatively,

Animate[ListLinePlot[T2, 
     Mesh -> {{t}}, 
     MeshFunctions -> {# &}, 
     MeshStyle -> Directive[PointSize[Large], Red]], 
  {t, T2[[All, 1]]}]

same picture

There are many ways to do this. But here is a quick attempt to get you started

T2 = {{1, 0.0112401}, {2, 0.022343}, {3, 0.0263601}, {4, 
    0.0362769}, {5, 0.0487026}, {6, 0.0443083}, {7, 0.0568229}, {8, 
    0.0678723}};
Animate[Grid[
  {
   {Row[{"point ", i, " = ", T2[[i]]}]},
   {Graphics[{PointSize[.04], Point[ T2[[i]]]}, Frame -> True, 
     PlotRange -> {{0, 8}, {-3, 3}}]}}, Spacings -> {1, 1}
  ] , {i, 1, Length@T2, 1}]