Zare,
Your arrows are functions of x so you need to pass the variable x to your arrows and manipulate x. Do this instead of ShowAll[]:
Module[{}, arrows[x_] = Arrow[data];
region =
Point[{{0, 0, 2}, {0, 0, -2}, {0, 2, 0}, {2, 0, 0}, {0, -2, 0}, {-2,
0, 0}}];
Manipulate[
Graphics3D[{arrows[x], region}, Axes -> True,
ViewPoint -> Front], {x, 0, 100}]]
Also, you should not use capital letters for your functions because they will inevitably conflict with internal Mathematica functions/Symbols.
Regards,
Neil