自作関数内ののFor文が動かない

Question

f[x_] := If[Mod[x, 2] == 2, x/2, 3*x + 1]のように設定し,
fFor[n_, x_] := (For[i = 0 , i < n, i++, x = f[x]]; x)
を実行したところSetDelayed::write: Null[n_,x_]のタグNullはProtectedです．というエラーが出ましたどうしてもわかりません教えてください